home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
pctjja86.arc
/
FINDLIM.BAS
next >
Wrap
BASIC Source File
|
1985-11-14
|
793b
|
17 lines
LISTING 1 - How BASIC locates the LIM within PCIRES
10 REM Interpretive BASIC Sample program
20 REM 1753180 3270PC High Level Language Application Program Interface
30 REM (C) Copyright IBM Corporation 1984
40 REM ******* INITIALIZATION CODE ************************
50 DEF SEG = 0 'LOOK AT LOW MEMORY
60 INTR = &H45 'INTERRUPT 45 FINDS LIM
70 SEGM = 256*PEEK(INTR*4+3) + PEEK(INTR*4+2) 'GET SEGMENT POINTER
80 BLIM = 256*PEEK(INTR*4+1) + PEEK(INTR*4) 'GET PGM OFFSET POINTER
90 IF SEGM < > 0 THEN 110
100 PRINT "BASIC LANGUAGE INTERFACE IS NOT INSTALLED": END
110 DEF SEG = SEGM 'SET THE SEG FOR BASIC LIM
120 REM *********** END OF MANDATORY INITIALIZATION ************